home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
A-Monthly Disks
/
(c)aau.d64
/
acd
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
994b
|
32 lines
10 PRINT CHR$(147);
20 POKE 53280,0
30 POKE 53281,0
40 FOR X=1 TO 13
50 READ CH,KO,F,T
60 FOR RO=F TO T
70 READ A,B
80 FOR CO=A TO B
90 POKE 1024+CO+40*RO,CH
100 POKE 55296+CO+40*RO,KO
110 NEXT CO,RO,X
120 GOTO 120
1000 DATA 86,9,1,23,3,3,3,4,3,5,3,6,3,7,3,9,4
1010 DATA 27,4,28,4,29,5,30,5,31,6,32,7,32,7
1020 DATA 32,8,32,9,13,10,14,11,14,13,15,14
1030 DATA 16,16,17,18,28,26,27,81,4,7,17,19
1040 DATA 23,18,22,17,22,16,21,16,21,15,19,15,18,14
1050 DATA 14,14,14,14,15,15,15,81,13,15,24,24,24,23
1060 DATA 23,22,22,21,21,20,21,18,22,18,23,19,26,20
1070 DATA 25,23,26,81,4,15,22,29,31,27,33,28,34,29
1080 DATA 33,29,32,28,33,27,31,30,32
1090 DATA 160,7,9,12,23,24,22,25,22,25,23,24
1100 DATA 160,5,12,17,20,22,19,23,19,23,19,23,20
1110 DATA 22,21,21,102,14,8,10,26,27,25,28,26,27
1120 DATA 160,8,11,15,26,27,25,28,24,29,24,29,25,28
1130 DATA160,2,16,21,24,26,23,27,22,28,22,28,23,27
1140 DATA 24,26,87,6,10,14,28,29,28,30,29,31,30,31
1150 DATA 30,31,88,6,16,19,18,19,17,20,17,20,18,19
1160 DATA 42,2,13,20,16,17,15,18,15,18,16,17
1170 DATA 16,16,15,16,16,17,17,17
1180 DATA 90,10,7,8,24,24,23,25